#tag Class
Protected Class XMLTests
Inherits RBUnit.TestFixture
	#tag Method, Flags = &h0
		Sub CreateXMLWithNamespacesTest()
		  Dim xml as XmlDocument
		  Dim root as XMLNode
		  
		  xml = New XmlDocument
		  
		  root = xml.AppendChild( xml.CreateElement("http://schemas.xmlsoap.org/soap/envelope/", "soapenv:Envelope") )
		  Assert.AreEqual "soapenv", root.Prefix 
		  Assert.AreEqual "http://schemas.xmlsoap.org/soap/envelope/", root.NamespaceUri
		  
		  Assert.AreEqual kNamespacedSoapEnv, xml.ToString
		  // "<?xml version="1.0" encoding="UTF-8"?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"/>"
		End Sub
	#tag EndMethod


	#tag Constant, Name = kNamespacedSoapEnv, Type = String, Dynamic = False, Default = \"<\?xml version\x3D\"1.0\" encoding\x3D\"UTF-8\"\?><soapenv:Envelope xmlns:soapenv\x3D\"http://schemas.xmlsoap.org/soap/envelope/\"/>", Scope = Protected
	#tag EndConstant


	#tag ViewBehavior
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass
